{**************************************************************************************************}
{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
{ License at http://www.mozilla.org/MPL/                                                           }
{                                                                                                  }
{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
{ and limitations under the License.                                                               }
{                                                                                                  }
{ The Original Code is ColorUtils.pas                                                              }
{                                                                                                  }
{ The Initial Developer of the Original Code is Fabrizio Vita (fabrizio.vita@itacasoft.com)        }
{**************************************************************************************************}
unit ColorUtils;

interface

uses Graphics, SysUtils, Windows;

function TColorToHex(Color: TColor): string;
function HexToTColor(sColor: string): TColor;


implementation

function TColorToHex(Color: TColor): string;
begin
   result := '$' + IntToHex(GetRValue(color), 2) + IntToHex(GetGValue(color), 2) + IntToHex(GetBValue(color), 2);
end;

function HexToTColor(sColor: string): TColor;
begin
   result :=
      RGB(
      StrToInt('$'+copy(scolor,2,2)),
      StrToInt('$'+copy(scolor,4,2)),
      StrToInt('$'+copy(scolor,6,2))
      );

end;


end.
